home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / IMAP29 / XIMAP29.dxr / 00075.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  2.5 KB  |  77 lines
  1. on mouseDown
  2.   global gLstFL2, gLstFL2Art, gintWhichSprite
  3.   hChickletState("flashLight on", "FLSHLITE.AIF")
  4.   if the visible of sprite 14 = 0 then
  5.     set lBoolMapItemDone4p to getProp(gLstFL2, 4)
  6.     set lBoolMapItemDone5p to getProp(gLstFL2, 5)
  7.     set lBoolMapItemDone6p to getProp(gLstFL2, 6)
  8.     set lBoolMapItemDone7p to getProp(gLstFL2, 7)
  9.     set lBoolMapItemDone8p to getProp(gLstFL2, 8)
  10.     set lBoolMapItemDone9p to getProp(gLstFL2, 9)
  11.     set lBoolMapItemDone10p to getProp(gLstFL2, 10)
  12.     set lBoolMapItemDone11p to getProp(gLstFL2, 11)
  13.     if lBoolMapItemDone4p = 0 then
  14.       hVisibleSprite(1, 4, 4)
  15.     end if
  16.     if lBoolMapItemDone5p = 0 then
  17.       hVisibleSprite(1, 5, 5)
  18.     end if
  19.     if lBoolMapItemDone6p = 0 then
  20.       hVisibleSprite(1, 6, 6)
  21.     end if
  22.     if lBoolMapItemDone7p = 0 then
  23.       hVisibleSprite(1, 7, 7)
  24.     end if
  25.     if lBoolMapItemDone8p = 0 then
  26.       hVisibleSprite(1, 8, 8)
  27.     end if
  28.     if lBoolMapItemDone9p = 0 then
  29.       hVisibleSprite(1, 9, 9)
  30.     end if
  31.     if lBoolMapItemDone10p = 0 then
  32.       hVisibleSprite(1, 10, 10)
  33.     end if
  34.     if lBoolMapItemDone11p = 0 then
  35.       hVisibleSprite(1, 11, 11)
  36.     end if
  37.   end if
  38.   if the visible of sprite 17 then
  39.     set lBoolArtItemDone4p to getProp(gLstFL2Art, 4)
  40.     set lBoolArtItemDone5p to getProp(gLstFL2Art, 5)
  41.     set lBoolArtItemDone6p to getProp(gLstFL2Art, 6)
  42.     set lBoolArtItemDone7p to getProp(gLstFL2Art, 7)
  43.     set lBoolArtItemDone8p to getProp(gLstFL2Art, 8)
  44.     set lBoolArtItemDone10p to getProp(gLstFL2Art, 10)
  45.     set lBoolArtItemDone11p to getProp(gLstFL2Art, 11)
  46.     if (lBoolArtItemDone4p = 0) and (gintWhichSprite = 4) then
  47.       hVisibleSprite(1, 22, 22)
  48.     end if
  49.     if (lBoolArtItemDone5p = 0) and (gintWhichSprite = 5) then
  50.       hVisibleSprite(1, 22, 22)
  51.     end if
  52.     if (lBoolArtItemDone6p = 0) and (gintWhichSprite = 6) then
  53.       hVisibleSprite(1, 22, 22)
  54.     end if
  55.     if (lBoolArtItemDone7p = 0) and (gintWhichSprite = 7) then
  56.       hVisibleSprite(1, 22, 22)
  57.     end if
  58.     if (lBoolArtItemDone8p = 0) and (gintWhichSprite = 8) then
  59.       hVisibleSprite(1, 22, 22)
  60.     end if
  61.     if (lBoolArtItemDone10p = 0) and (gintWhichSprite = 10) then
  62.       hVisibleSprite(1, 22, 22)
  63.     end if
  64.     if (lBoolArtItemDone11p = 0) and (gintWhichSprite = 11) then
  65.       hVisibleSprite(1, 22, 22)
  66.     end if
  67.   end if
  68.   updateStage()
  69.   repeat while the mouseDown
  70.     nothing()
  71.   end repeat
  72.   hChickletState("flashLight off", 0)
  73.   hVisibleSprite(0, 4, 8)
  74.   hVisibleSprite(0, 22, 22)
  75.   updateStage()
  76. end
  77.